100 V=53248:FORI=0TO63:READD:POKE50432+I,D:NEXT:GOSUB165
105 GETA$:IFA$="[133]"THENGOSUB165
110 IFA$="[134]"THENGOSUB175
115 IFA$="[135]"THEN185
120 J=PEEK(56320)
125 IF(JAND16)=0THEN:!PN,0
130 DX=SGN(JAND4)-SGN(JAND8):DY=SGN(JAND1)-SGN(JAND2):X=X+DX:Y=Y+DY
135 IFX<0THENX=319
140 IFX>319THENX=0
145 IFY<0THENY=199
150 IFY>199THENY=0
155 X1=X+13:Y1=Y+40:S=(X1>255):POKEV,X1+S*256:POKEV+16,-1*S:POKEV+1,Y1
160 !PL,X,Y:!PN,1:GOTO105
165 !SC,0:POKEV+21,0
170 PRINT"[147]ENTER BACKGROUND AND FOREGROUND COLORS":INPUTB,F:B=BAND15:F=FAND15
175 X=160:Y=100:POKEV+39,F:POKEV,X+13:POKEV+1,Y+40:POKEV+21,1
180 !SC,2:!CO,B+F*16:POKE52216,20:!PN,1:RETURN
185 !SC,0:PRINT"[147]":POKEV+21,0:END
190 DATA0,126,0,1,129,128,6,0,96,8,0,16,16,0,8,32,0,4,64,0,2,64
195 DATA0,2,128,0,1,128,0,1,128,16,1,128,0,1,128,0,1,64,0,2,64,0
200 DATA2,32,0,4,16,0,8,8,0,16,6,0,96,1,129,128,0,126,0,13